Program TestCaptive;

Uses
	Classes,
	SysUtils,
	CaptivePortal;

Var
	lRedirector : TRedirectorThread;
	lCaptivePortal : TPortalThread;
	CmdLine : String;

Begin
	Try
		lRedirector := TRedirectorThread.Create('', '', '', '', '');
		lCaptivePortal := TPortalThread.Create('', '', '');
		lRedirector.Start;
		lCaptivePortal.Start;
		Repeat
			WriteLn('Type quit to exit.');
			ReadLn(CmdLine);
		Until CmdLine = 'quit';
	Finally
		FreeAndNil(lRedirector);
		FreeAndNil(lCaptivePortal);
	End;
End.